Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/datamgr/opendb.frm

Text File | 1995-10-23 | 4KB | 144 lines

VERSION 2.00
Begin Form OpenDBForm
   BackColor       =   &H00C0C0C0&
   Caption         =   "Open Database"
   ClientHeight    =   4620
   ClientLeft      =   2175
   ClientTop       =   2325
   ClientWidth     =   5820
   Height          =   5025
   Left            =   2115
   LinkTopic       =   "Form1"
   ScaleHeight     =   4620
   ScaleWidth      =   5820
   Top             =   1980
   Width           =   5940
   Begin FileListBox File1
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      Height          =   3150
      Left            =   3480
      TabIndex        =   8
      Top             =   660
      Width           =   1995
   End
   Begin CommandButton Command2
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   4140
      TabIndex        =   5
      Top             =   3900
      Width           =   1335
   End
   Begin CommandButton Command1
      Caption         =   "&OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   2700
      TabIndex        =   4
      Top             =   3900
      Width           =   1335
   End
   Begin DirListBox Dir1
      Height          =   2730
      Left            =   1200
      TabIndex        =   3
      Top             =   1080
      Width           =   2175
   End
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   1200
      TabIndex        =   1
      Top             =   660
      Width           =   2175
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label3"
      Height          =   255
      Left            =   3480
      TabIndex        =   9
      Top             =   180
      Width           =   1995
   End
   Begin Label ExitCondition
      Caption         =   "Label3"
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   2220
      Visible         =   0   'False
      Width           =   315
   End
   Begin Label Label2
      BackStyle       =   0  'Transparent
      Caption         =   "&Directories:"
      Height          =   255
      Index           =   1
      Left            =   180
      TabIndex        =   2
      Top             =   1140
      Width           =   1035
   End
   Begin Label Label2
      BackStyle       =   0  'Transparent
      Caption         =   "Dri&ves:"
      Height          =   255
      Index           =   0
      Left            =   180
      TabIndex        =   0
      Top             =   660
      Width           =   855
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Pick Your Paradox Directory:"
      Height          =   315
      Left            =   180
      TabIndex        =   6
      Top             =   180
      Width           =   2835
   End
End
Sub Command1_Click ()
    If dir1 <> "" Then
        Me.ExitCondition = "OK"
        Me.Hide
    Else
        MsgBox "Please select a directory", 64, "Open Database"
    End If

End Sub

Sub Command2_Click ()
    Me.ExitCondition = "Cancel"
    Me.Hide
End Sub

Sub Dir1_Change ()
    file1 = dir1
    label3 = dir1
End Sub

Sub Drive1_Change ()
    dir1 = drive1
End Sub

Sub File1_Click ()
    file1.ListIndex = -1
End Sub

Sub File1_DblClick ()
    file1.ListIndex = -1
End Sub

Sub Form_Load ()
    dir1 = drive1
    file1 = dir1
    label3 = dir1
End Sub